home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / opt.dir / 00003_Click & Rollover.ls < prev    next >
Encoding:
Text File  |  1996-04-18  |  2.0 KB  |  77 lines
  1. on hOptPressButton
  2.   global gLastSprite
  3.   set vSprite to the clickOn
  4.   set vCastNo to the castNum of sprite vSprite
  5.   set vCastNam to the name of cast vCastNo
  6.   puppetSprite(vSprite, 1)
  7.   if (vCastNam = 0) or (vCastNam = EMPTY) then
  8.     set the castNum of sprite vSprite to vCastNo + 1
  9.   else
  10.     if vCastNam contains "ROLLOVER" then
  11.       set the castNum of sprite vSprite to vCastNo + 1
  12.     else
  13.       set the castNum of sprite vSprite to the number of cast (vCastNam & "-down")
  14.     end if
  15.   end if
  16.   updateStage()
  17.   repeat while the stillDown
  18.     nothing()
  19.   end repeat
  20.   if (vCastNam = 0) or (vCastNam = EMPTY) then
  21.     set the castNum of sprite vSprite to vCastNo
  22.   else
  23.     set the castNum of sprite vSprite to the number of cast vCastNam
  24.   end if
  25.   puppetSprite(vSprite, 0)
  26.   updateStage()
  27.   if the mouseCast = the castNum of sprite vSprite then
  28.     return 1
  29.   else
  30.     return 0
  31.   end if
  32. end
  33.  
  34. on hOptRolloverScript vFrameLabel
  35.   global gLastSprite
  36.   set vNowSprite to 0
  37.   if vFrameLabel = "Main" then
  38.     if rollOver(47) then
  39.       set vNowSprite to 47
  40.     else
  41.       if rollOver(48) then
  42.         set vNowSprite to 48
  43.       end if
  44.     end if
  45.   end if
  46.   if not (vNowSprite = 0) then
  47.     set vCastNo to the castNum of sprite vNowSprite
  48.     set vCastName to the name of cast vCastNo
  49.     if (vCastName contains "NOOP") or (vCastName contains "DOWN") then
  50.       set vNowSprite to 0
  51.     end if
  52.   end if
  53.   if not (vNowSprite = 0) then
  54.     hRollOverOn(vNowSprite)
  55.     set gLastSprite to vNowSprite
  56.   else
  57.     puppetSprite(gLastSprite, 0)
  58.     set gLastSprite to 0
  59.   end if
  60. end
  61.  
  62. on hRollOverOn vNowSprite
  63.   global gLastSprite
  64.   if not (gLastSprite = vNowSprite) then
  65.     set vCastNo to the castNum of sprite vNowSprite
  66.     set vCastNam to the name of cast vCastNo
  67.     puppetSprite(vNowSprite, 1)
  68.     set the castNum of sprite vNowSprite to the number of cast (vCastNam & "-ROLLOVER")
  69.     if not (gLastSprite = 0) then
  70.       puppetSprite(gLastSprite, 0)
  71.       updateStage()
  72.     end if
  73.   else
  74.     nothing()
  75.   end if
  76. end
  77.